home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tb.d64 / func.jdate < prev    next >
Text File  |  2007-02-28  |  622b  |  30 lines
  1. 0010 ╞╒╬├ JDATE(M,D,Y) ├╠╧╙┼─
  2. 0020   ╥┼╙╘╧╥┼ DAYS'PER'MONTH
  3. 0030   TOTAL:=0
  4. 0040   ╘╥┴╨ 
  5. 0050     ╞╧╥ I#:=1 ╘╧ M-1 ─╧
  6. 0060       ╥┼┴─ DAYS
  7. 0070       TOTAL:+DAYS
  8. 0080     ┼╬─╞╧╥ I#
  9. 0090     ╥┼┴─ DAYS
  10. 0100     ╔╞ D<=DAYS ╘╚┼╬
  11. 0110       TOTAL:+D
  12. 0120     ┼╠╙┼ 
  13. 0130       ╥┼╨╧╥╘
  14. 0140     ┼╬─╔╞ 
  15. 0150     ODD:=Y ═╧─ 4
  16. 0160     ╔╞ ODD ┴╬─ M>2 ╘╚┼╬
  17. 0170       TOTAL:-1
  18. 0180     ┼╠╔╞ ODD ┴╬─ M=2 ┴╬─ D=29 ╘╚┼╬
  19. 0190       ╥┼╨╧╥╘
  20. 0200     ┼╬─╔╞ 
  21. 0210     ╥┼╘╒╥╬ TOTAL
  22. 0220   ╚┴╬─╠┼╥ 
  23. 0230     ╥┼╘╒╥╬ -1
  24. 0240   ┼╬─╘╥┴╨ 
  25. 0250   //
  26. 0260 DAYS'PER'MONTH:
  27. 0270   ─┴╘┴ 31,29,31,30,31,30
  28. 0280   ─┴╘┴ 31,31,30,31,30,31
  29. 0290 ┼╬─╞╒╬├ JDATE
  30.